home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #42 (1995-01)(PackMAN)(DE)[WB].zip / Purity #42 (1995-01)(PackMAN)(DE)[WB].adf / Includes3v1 / Includes3v1.lha / Intuition / Preferences.i < prev    next >
Text File  |  1994-12-04  |  11KB  |  271 lines
  1. {
  2.         Preferences.i for PCQ Pascal
  3. }
  4.  
  5. {$I   "Include:Devices/Timer.i"}
  6.  
  7. { ======================================================================== }
  8. { === Preferences ======================================================== }
  9. { ======================================================================== }
  10.  
  11. Const
  12.  
  13. { these are the definitions for the printer configurations }
  14.     FILENAME_SIZE       = 30;           { Filename size }
  15.  
  16.     POINTERSIZE         = (1 + 16 + 1) * 2;     { Size of Pointer data buffer }
  17.  
  18. { These defines are for the default font size.   These actually describe the
  19.  * height of the defaults fonts.  The default font type is the topaz
  20.  * font, which is a fixed width font that can be used in either
  21.  * eighty-column or sixty-column mode.  The Preferences structure reflects
  22.  * which is currently selected by the value found in the variable FontSize,
  23.  * which may have either of the values defined below.  These values actually
  24.  * are used to select the height of the default font.  By changing the
  25.  * height, the resolution of the font changes as well.
  26.  }
  27.     TOPAZ_EIGHTY        = 8;
  28.     TOPAZ_SIXTY         = 9;
  29.  
  30. Type
  31.  
  32.     Preferences = record
  33.     { the default font height }
  34.         FontHeight      : Byte;         { height for system default font  }
  35.  
  36.     { constant describing what's hooked up to the port }
  37.         PrinterPort     : Byte;         { printer port connection     }
  38.  
  39.     { the baud rate of the port }
  40.         BaudRate        : Short;        { baud rate for the serial port   }
  41.  
  42.     { various timing rates }
  43.         KeyRptSpeed     : timeval;      { repeat speed for keyboard       }
  44.         KeyRptDelay     : timeval;      { Delay before keys repeat             }
  45.         DoubleClick     : timeval;      { Interval allowed between clicks }
  46.  
  47.     { Intuition Pointer data }
  48.         PointerMatrix   : Array [0..POINTERSIZE-1] of Short;
  49.                                         { Definition of pointer sprite     }
  50.         XOffset         : Byte;         { X-Offset for active 'bit'       }
  51.         YOffset         : Byte;         { Y-Offset for active 'bit'       }
  52.         color17         : Short;        {*********************************}
  53.         color18         : Short;        { Colours for sprite pointer      }
  54.         color19         : Short;        {*********************************}
  55.         PointerTicks    : Short;        { Sensitivity of the pointer       }
  56.  
  57.     { Workbench Screen colors }
  58.         color0          : Short;        {*********************************}
  59.         color1          : Short;        {   Standard default colours      }
  60.         color2          : Short;        {   Used in the Workbench         }
  61.         color3          : Short;        {*********************************}
  62.  
  63.     { positioning data for the Intuition View }
  64.         ViewXOffset     : Byte;         { Offset for top lefthand corner  }
  65.         ViewYOffset     : Byte;         { X and Y dimensions           }
  66.         ViewInitX,
  67.         ViewInitY       : Short;        { View initial offset values      }
  68.  
  69.         EnableCLI       : Boolean;      { CLI availability switch }
  70.  
  71.     { printer configurations }
  72.         PrinterType     : Short;        { printer type                     }
  73.         PrinterFilename : Array [0..FILENAME_SIZE-1] of Char;
  74.                                         { file for printer         }
  75.  
  76.     { print format and quality configurations }
  77.         PrintPitch      : Short;        { print pitch              }
  78.         PrintQuality    : Short;        { print quality    }
  79.         PrintSpacing    : Short;        { number of lines per inch    }
  80.         PrintLeftMargin : Short;        { left margin in characters        }
  81.         PrintRightMargin : Short;       { right margin in characters       }
  82.         PrintImage      : Short;        { positive or negative         }
  83.         PrintAspect     : Short;        { horizontal or vertical      }
  84.         PrintShade      : Short;        { b&w, half-tone, or color    }
  85.         PrintThreshold  : Short;        { darkness ctrl for b/w dumps      }
  86.  
  87.     { print paper descriptors }
  88.         PaperSize       : Short;        { paper size               }
  89.         PaperLength     : Short;        { paper length in number of lines }
  90.         PaperType       : Short;        { continuous or single sheet       }
  91.  
  92.     { Serial device settings: These are six nibble-fields in three bytes }
  93.     { (these look a little strange so the defaults will map out to zero) }
  94.         SerRWBits       : Byte;
  95.                              { upper nibble = (8-number of read bits)     }
  96.                              { lower nibble = (8-number of write bits)    }
  97.         SerStopBuf      : Byte;
  98.                              { upper nibble = (number of stop bits - 1)  }
  99.                              { lower nibble = (table value for BufSize)  }
  100.         SerParShk       : Byte;
  101.                              { upper nibble = (value for Parity setting) }
  102.                              { lower nibble = (value for Handshake mode) }
  103.         LaceWB          : Byte;         { if workbench is to be interlaced      }
  104.  
  105.         WorkName        : Array [0..FILENAME_SIZE-1] of Char;
  106.                                         { temp file for printer         }
  107.  
  108.         RowSizeChange   : Byte;
  109.         ColumnSizeChange : Byte;
  110.  
  111.         PrintFlags      : Short;        { user preference flags }
  112.         PrintMaxWidth   : Short;        { max width of printed picture in 10ths/inch }
  113.         PrintMaxHeight  : Short;        { max height of printed picture in 10ths/inch }
  114.         PrintDensity    : Byte;         { print density }
  115.         PrintXOffset    : Byte;         { offset of printed picture in 10ths/inch }
  116.  
  117.         wb_Width        : Short;        { override default workbench width       }
  118.         wb_Height       : Short;        { override default workbench height }
  119.         wb_Depth        : Byte;         { override default workbench depth       }
  120.  
  121.         ext_size        : Byte;         { extension information -- do not touch! }
  122.                             { extension size in blocks of 64 bytes }
  123.     end;
  124.     PreferencesPtr = ^Preferences;
  125.  
  126. Const
  127.  
  128. { Workbench Interlace (use one bit) }
  129.     LACEWB              = $01;
  130.     LW_RESERVED         = 1;     { internal use only }
  131.  
  132. { PrinterPort }
  133.     PARALLEL_PRINTER    = $00;
  134.     SERIAL_PRINTER      = $01;
  135.  
  136. { BaudRate }
  137.     BAUD_110            = $00;
  138.     BAUD_300            = $01;
  139.     BAUD_1200           = $02;
  140.     BAUD_2400           = $03;
  141.     BAUD_4800           = $04;
  142.     BAUD_9600           = $05;
  143.     BAUD_19200          = $06;
  144.     BAUD_MIDI           = $07;
  145.  
  146. { PaperType }
  147.     FANFOLD             = $00;
  148.     SINGLE              = $80;
  149.  
  150. { PrintPitch }
  151.     PICA                = $000;
  152.     ELITE               = $400;
  153.     FINE                = $800;
  154.  
  155. { PrintQuality }
  156.     DRAFT               = $000;
  157.     LETTER              = $100;
  158.  
  159. { PrintSpacing }
  160.     SIX_LPI             = $000;
  161.     EIGHT_LPI           = $200;
  162.  
  163. { Print Image }
  164.     IMAGE_POSITIVE      = $00;
  165.     IMAGE_NEGATIVE      = $01;
  166.  
  167. { PrintAspect }
  168.     ASPECT_HORIZ        = $00;
  169.     ASPECT_VERT         = $01;
  170.  
  171. { PrintShade }
  172.     SHADE_BW            = $00;
  173.     SHADE_GREYSCALE     = $01;
  174.     SHADE_COLOR         = $02;
  175.  
  176. { PaperSize }
  177.     US_LETTER           = $00;
  178.     US_LEGAL            = $10;
  179.     N_TRACTOR           = $20;
  180.     W_TRACTOR           = $30;
  181.     CUSTOM_PAPER        = $40;
  182.  
  183. { New PaperSizes for V36: }
  184.  EURO_A0 = $50;            { European size A0: 841 x 1189 }
  185.  EURO_A1 = $60;            { European size A1: 594 x 841 }
  186.  EURO_A2 = $70;            { European size A2: 420 x 594 }
  187.  EURO_A3 = $80;            { European size A3: 297 x 420 }
  188.  EURO_A4 = $90;            { European size A4: 210 x 297 }
  189.  EURO_A5 = $A0;            { European size A5: 148 x 210 }
  190.  EURO_A6 = $B0;            { European size A6: 105 x 148 }
  191.  EURO_A7 = $C0;            { European size A7: 74 x 105 }
  192.  EURO_A8 = $D0;            { European size A8: 52 x 74 }
  193.  
  194. { PrinterType }
  195.     CUSTOM_NAME         = $00;
  196.     ALPHA_P_101         = $01;
  197.     BROTHER_15XL        = $02;
  198.     CBM_MPS1000         = $03;
  199.     DIAB_630            = $04;
  200.     DIAB_ADV_D25        = $05;
  201.     DIAB_C_150          = $06;
  202.     EPSON               = $07;
  203.     EPSON_JX_80         = $08;
  204.     OKIMATE_20          = $09;
  205.     QUME_LP_20          = $0A;
  206. { new printer entries, 3 October 1985 }
  207.     HP_LASERJET         = $0B;
  208.     HP_LASERJET_PLUS    = $0C;
  209.  
  210. { Serial Input Buffer Sizes }
  211.     SBUF_512            = $00;
  212.     SBUF_1024           = $01;
  213.     SBUF_2048           = $02;
  214.     SBUF_4096           = $03;
  215.     SBUF_8000           = $04;
  216.     SBUF_16000          = $05;
  217.  
  218. { Serial Bit Masks }
  219.     SREAD_BITS          = $F0;          { for SerRWBits   }
  220.     SWRITE_BITS         = $0F;
  221.  
  222.     SSTOP_BITS          = $F0;          { for SerStopBuf  }
  223.     SBUFSIZE_BITS       = $0F;
  224.  
  225.     SPARITY_BITS        = $F0;          { for SerParShk }
  226.     SHSHAKE_BITS        = $0F;
  227.  
  228. { Serial Parity (upper nibble, after being shifted by
  229.  * macro SPARNUM() )
  230.  }
  231.     SPARITY_NONE        = 0;
  232.     SPARITY_EVEN        = 1;
  233.     SPARITY_ODD         = 2;
  234.  
  235. { Serial Handshake Mode (lower nibble, after masking using
  236.  * macro SHANKNUM() )
  237.  }
  238.     SHSHAKE_XON         = 0;
  239.     SHSHAKE_RTS         = 1;
  240.     SHSHAKE_NONE        = 2;
  241.  
  242. { new defines for PrintFlags }
  243.  
  244.     CORRECT_RED         = $0001;        { color correct red shades }
  245.     CORRECT_GREEN       = $0002;        { color correct green shades }
  246.     CORRECT_BLUE        = $0004;        { color correct blue shades }
  247.  
  248.     CENTER_IMAGE        = $0008;        { center image on paper }
  249.  
  250.     IGNORE_DIMENSIONS   = $0000;        { ignore max width/height settings }
  251.     BOUNDED_DIMENSIONS  = $0010;        { use max width/height as boundaries }
  252.     ABSOLUTE_DIMENSIONS = $0020;        { use max width/height as absolutes }
  253.     PIXEL_DIMENSIONS    = $0040;        { use max width/height as prt pixels }
  254.     MULTIPLY_DIMENSIONS = $0080;        { use max width/height as multipliers }
  255.  
  256.     INTEGER_SCALING     = $0100;        { force integer scaling }
  257.  
  258.     ORDERED_DITHERING   = $0000;        { ordered dithering }
  259.     HALFTONE_DITHERING  = $0200;        { halftone dithering }
  260.     FLOYD_DITHERING     = $0400;        { Floyd-Steinberg dithering }
  261.  
  262.     ANTI_ALIAS          = $0800;        { anti-alias image }
  263.     GREY_SCALE2         = $1000;        { for use with hi-res monitor }
  264.  
  265. { masks used for checking bits }
  266.  
  267.     CORRECT_RGB_MASK    = CORRECT_RED + CORRECT_GREEN + CORRECT_BLUE;
  268.     DIMENSIONS_MASK     = BOUNDED_DIMENSIONS + ABSOLUTE_DIMENSIONS +
  269.                                 PIXEL_DIMENSIONS + MULTIPLY_DIMENSIONS;
  270.     DITHERING_MASK      = HALFTONE_DITHERING + FLOYD_DITHERING;
  271.